home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Visual Basic Controls
/
Visual Basic Controls.iso
/
vbcontrol
/
vu
/
frmmain.frm
next >
Wrap
Text File
|
1999-06-03
|
3KB
|
126 lines
VERSION 5.00
Object = "{6148AFC5-1910-11D3-B72F-444553540000}#1.0#0"; "VUDEMO.ocx"
Begin VB.Form frmMain
Caption = "VU Meter 1.5 Tester (DEMO)"
ClientHeight = 2955
ClientLeft = 4380
ClientTop = 5175
ClientWidth = 5235
ControlBox = 0 'False
BeginProperty Font
Name = "Tahoma"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Icon = "frmMain.frx":0000
LinkTopic = "Form1"
ScaleHeight = 2955
ScaleWidth = 5235
Begin VUDEMO.ucVURightAnalog ucVUR
Height = 1185
Left = 2805
TabIndex = 4
Top = 915
Width = 1815
_ExtentX = 3201
_ExtentY = 2090
PriorityVal = 10
End
Begin VUDEMO.ucVULeftAnalog ucVUL
Height = 1185
Left = 480
TabIndex = 3
Top = 915
Width = 1815
_ExtentX = 3201
_ExtentY = 2090
PriorityVal = 10
End
Begin VB.CommandButton cmdClose
Caption = "Cool!!!"
Height = 345
Left = 4110
TabIndex = 2
Top = 2505
Width = 1065
End
Begin VB.ComboBox cmdMonitorLines
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 210
Style = 2 'Dropdown List
TabIndex = 0
Top = 285
Width = 2295
End
Begin VB.Label Label1
Caption = "Monitor:"
Height = 285
Left = 210
TabIndex = 1
Top = 60
Width = 810
End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub cmdClose_Click()
ucVUL.StopVU
ucVUR.StopVU
Unload Me
End Sub
Private Sub cmdMonitorLines_Click()
ucVUR.SetMonitorLine = cmdMonitorLines.ListIndex + 1
ucVUL.SetMonitorLine = cmdMonitorLines.ListIndex + 1
End Sub
Private Sub Form_Load()
Dim i As Integer
With ucVUR
.StartVU
For i = 1 To .MonitorLinesCount
cmdMonitorLines.AddItem .MonitorLineName(i)
Next i
End With
With ucVUL
.StartVU
End With
If cmdMonitorLines.ListCount > 0 Then
cmdMonitorLines.ListIndex = 0
End If
End Sub
Private Sub ucVUL_VUError(msg As String)
MsgBox msg
End Sub